home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_enscript.idb / usr / freeware / share / enscript / hl / m4.st.z / m4.st
Encoding:
Text File  |  2002-04-08  |  1.1 KB  |  51 lines
  1. /**
  2.  * Name: m4
  3.  * Description: macro processor
  4.  * Author: Jean-Marc Calvez <jean-marc.calvez@st.com>
  5.  */
  6.  
  7. state m4 extends HighlightEntry
  8. {
  9.   BEGIN {
  10.     require_state (pascal);
  11.   }
  12.  
  13.   /* Comments. */
  14.   /dnl|#/ {
  15.     comment_face (true);
  16.     language_print ($0);
  17.     call (eat_one_line);
  18.     comment_face (false);
  19.   }
  20.  
  21.   /* String constants. */
  22.   /\`/ {
  23.     string_face (true);
  24.     language_print ($0);
  25.     call (pascal_string);
  26.     string_face (false);
  27.   }
  28.  
  29.   /* Keywords:
  30.      (build-re '(changequote changecom decr define defn divert divnum dumpdef
  31.      errprint eval ifdef ifelse include incr index len m4exit m4wrap maketemp
  32.      popdef pushdef shift sinclude substr syscmd sysval translit traceon
  33.      traceoff undefine undivert))
  34.   */
  35.   /\b(change(com|quote)|d(e(cr|f(ine|n))|iv(ert|num)|umpdef)|e(rrprint|val)\
  36. |i(f(def|else)|n(c(lude|r)|dex))|len|m(4(exit|wrap)|aketemp)\
  37. |p(opdef|ushdef)|s(hift|include|ubstr|ys(cmd|val))\
  38. |tra(ceo(ff|n)|nslit)|und(efine|ivert))\b/ {
  39.     keyword_face (true);
  40.     language_print ($0);
  41.     keyword_face (false);
  42.   }
  43. }
  44.  
  45.  
  46. /*
  47. Local variables:
  48. mode: c
  49. End:
  50. */
  51.